home *** CD-ROM | disk | FTP | other *** search
/ Windows News 2007 June/July / Windows News Hors série Numéro 34 juin juillet 2007.iso / Rédaction / Astuces Windows XP / systeme.vbs < prev    next >
Encoding:
Text File  |  2007-01-30  |  1.2 KB  |  20 lines
  1. Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
  2. strComputer = "."
  3. strResultat=""
  4. Set objWMIService = GetObject("winmgmts:" _
  5.     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
  6. Set colOperatingSystems = objWMIService.ExecQuery _
  7.     ("Select * from Win32_OperatingSystem")
  8. For Each objOperatingSystem in colOperatingSystems
  9.     strResultat=strResultat &  objOperatingSystem.Caption & vbCR
  10.     strResultat=strResultat & "Version: " & objOperatingSystem.Version & vbCR
  11.     strResultat=strResultat & "NumΘro de sΘrie: " & objOperatingSystem.SerialNumber & vbCR
  12.     strResultat=strResultat & "Langue: " & objOperatingSystem.OSLanguage & vbCR
  13.     strResultat=strResultat &  "Code pays: " & objOperatingSystem.CountryCode & vbCR
  14.     strResultat=strResultat & "Utilisateur enregistrΘ: " & objOperatingSystem.RegisteredUser & vbCR
  15.     strResultat=strResultat & "Organisation: " & objOperatingSystem.Organization & vbCR
  16.     dtmConvertedDate.Value = objOperatingSystem.InstallDate 
  17.     dtmInstallDate = dtmConvertedDate.GetVarDate
  18.     strResultat=strResultat & "Date installation: " & dtmInstallDate & vbCR
  19. Next
  20. WScript.echo strResultat